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WEBeon19R 00:61:05 yatett ot ie4-82 v4, 
MODULE STAACLCTL - ANGUAGE,, (BLISS 2, 
eS. BL 
BEGIN 


' 

REED rape pEpA oe ogee 
'e 

'¢ Sth! (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


* 

® 

a 

® 

® 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS $0 . * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH ‘ 
ie TRANSFERRED. . 
® 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION . 

® 

® 

* 

® 

® 

® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
PITTITILILILILILI LILI LiL LT LiLii tii Liliiiiiiiiiiiii iit. 
pee 

FACILITY: BACKUP/RESTORE 

i ABSTRACT: 


This module contains the routines to manipulate the Access 
Control Lists and Access Control Entries. 


i ENVIRONMENT: 
VAX/VMS user mode utilities. 


AUTHOR: L. Mark Pilant, CREATION DATE: 3-Nov-1982 11:35 
i MODIFIED BY: 
v03-008 LMP0272 : L. Mark Pilant, 53-Jul-1984 10:32 
Change veut snee to use the common ACL subroutines where 
poss 
v03-006 ACGO613 Andrew C. Goldstein, 24-Apr-1984 18:42 


isc ACL processing cleanups 


or 69251 


| K 10 
STAACLCTL 16-Sep-1984 00:41: AX-11 Bliss-32 V4.0-74 Pa 2 
-Sep- 254: " 832; 
904-006 14-Sep-19 1:54 $3 (BACKUP SRCIJSTAACLCTL.832;1 ” (1) 
3 rs 0058 1! v03-005 ACG0382 Andrew C. Goldstein, 16-Dec-1983 17:08 
; + 4 See : } Fix RVN usage in reading extension headers 
; 6} boc; 1! v03-004 ACG0365 Andrew C. Goldstein, 11-Oct-1983 14:55 
$ o¢ oped 1! Return correct error status on failures 
+ © 806 1! 
; 664 1! v03-003 ACGO0313 Andrew C. Goldstein, 12-Feb-1983 17:07 
g #4 Bpe? : } Add routine subtitles 
; (67 ita 1! v03-002 LMP0067 L. Mark Pilant, 15-Dec-1982 15:19 
; @& 0068 1! Deallocate memory obtained for ACL segments when the file 
; $8 306? 1! is deaccessed. 
5 076 1! 
i oe 0071 1! 
: 72 0072 1 !ee 


=S 
wn Wn OOO 


PAAEAAA A AAO 


S 


t-te 


RADRRE ERR RE 
RC OONOUSWN OCW 


REQUIRE See: COON 
LJGRARY *SYSSLIBRARY: ( 18.132"; 
EQUIRE *LIBS:BACKDEF’; 


FORWARD ROUTINE 
ACL_DISPATCH, 
ACL BUILDACL, 
LLOC GED 
DALLOC PAG 6; 


EXTERNAL ROUTINE 
ACL_ADDENTRY, 


READ HEADER, 
SW1TCH_VOLUME ; 


GSDEFINE (); 
BUILTIN 


INSQUE, 
REMQUE ; 


£01984 90g bs Heche sae istaatce se oS2:1 


ACL dispatch routine 

Build the ont structures 
Jacket rout ne for ACLSUBR 
Jacket routine for ACLSUBR 


Add an Access Control Entry 
Delete the entire ACL 

Read the entire ACL 

Return the Length of the ACL 
Allocate & clear memory 
Return allocated qqaery 

Read header specified by FCB 
Set the corrent volume 


Define global common area 
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STAACLCTL 16-Sep-1984 00:41: AX-11 Bliss-32 V4.0-74 
yoe- 005 ACL_DISPATCH = dispatch ACL operation 14-Sep-19 4 90:81:03 {BACKUP SRE STAACLE TL 89251 
101 653 ZSBTTL ‘ACL_DISPATCH = dispatch ACL operation’ 
; ? ¢ GLOBAL ROUTINE ACL_DISPATCH (CODE, COUNT, ACE, FIB) = 
6 'e+ 
ae 
O28 FUNCTIONAL DESCRIPTION: 
660 i This routine is called whenever any ACL processing is to be done. 
661 The code is checked for validity and if valid, the appropriate routine 
296 is called to manipulate the ACL*s and ACE's. 
664 1 | CALLING SEQUENCE: 
665 : ACL DISPATCH (ARG1, ARG2, ARG3, ARG4) 


23 


3 1 1 

ry 1 1 

3 1 1 

.-% 1 1 

; 105 1 1 

* 1 1 

; 10 1 1 

: 108 1 1! 

; 109 1 1! 

s 110 1 1! 

ae BB 1 1! 

: Ne 1 1! 

May 1 1! 

; 61146 1 1! 

s 115 1667 1 ! INPUT PARAMETERS: 

3 118 1668 1! ARG1: attribute code to determine the action to perform 

s 11 1669 1! ARG2: size of the attribute 

; 118 1670 1! ARGS: address of the user Access Control Entry 

; 119 1671 1! ARG4: address of the FIB 

s 120 ore 1! 

: \¢1 1673 1 =! IMPLICIT INPUTS: 

3 ; ¢ lore : : CURRENT_MTL: address of the current file info block 

3 152 1676 1 ! OUTPUT PARAMETERS: 

s 25 1677 1! none 

; 126 1678 1! 

s 27 1679 1°! IMPLICIT OUTPUTS: 

: 128 1680 1! none 

3 4 1681 1! 

s 1350 lose 1 ! ROUTINE VALUE: 

: 131 1683 1! 1 if successful 

3 135 1684 1! 0 otherwise 

3; 13 1685 1! 

3 «134 1686 1 ! SIDE EFFECTS: , : : 
3 135 1687 1! Appropriate action routine called, possible header modification may 
: 138 1688 1! result. 

s ¥S 1689 1! 

3; «138 1690 1 !-- 

3; 139 1691 1 

; 140 Hy +4 BEGIN 

: «(141 169 

: 166 1694 MAP 

: 14 1695 ACE : REF BBLOCK, ' Address of the user ACE 
: 1446 169 FIB : REF BBLOCK; ' Address of the FIB 
3: «6145 169 

: 146 1698 LOCAL 

: 147 84 ACL_CONTEXT, ' Address of ACL context cell 
; 148 1700 ° : Throw away cell 7 
3 4 170) LOCAL_STATUS; ! Status of attribute processing 
: 13 1708 ' Switch context to the volume of the specified RVN. 

; 138 1082 SWITCH_VOLUME (.CURRENT_MTLCMTL_FID_RVN)); 

: 155 1709 ! Determine where the ACL context is to go. 

: 136 1708 

.. 1709 DUMMY = 0; 
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DISPATCH = dispatch ACL operation 


=PIPIMIPINPIPI NNN & BONNIE & EWI BPN FF PW E PES 


If .FIB NEQ 0 

THEN ACL CONTEXT = FIBCFIBSL_ACLCTX] 

ELSE ACL CONTEXT = DUMMY; 

! Dispatch to the appropriate action routine based upon the attribute code. 


LOCAL STATUS = ( 
CASE .CODE FROM ATRSC_ADDACLENT TO ATRSC_READACE OF 


CATRSC ADDACLENT): 
CURRENT_MTLCMTL_NEW ACL] = TRUE; 
Y TAK OORFFFEE?. 
ACL ADDENTRY (CURRENT _MTLCMTL_ACLFLJ, DUMMY, .COUNT, .ACE) 


CATRSC_DELETEACLI: 
IF _ .CURRENT_MTLCMTL_ACLFL) EQL 0 
THEN 


BEGIN 
CURRENT_MTLCMTL_ACLFL] = CURRENT_MTLCMTL_ACLFL]; 
CURRENT _ATL MTL-ACLBLJ = CURRENT_MTLCMTL-ACLFLJ; 
CURRENT MTLCMTL_NEW_ACL] = TRUE; 
ACL DELETEACL (CURRENT_MTLCMTL_ACLFLJ, 0) 


CATES PEAOAEL Ss 
Hg CURRENT ULENTL ACLPLS EQL CURRENT_MTLCMTL_ACLFLJ 


BEGIN 
CHSFILL (0, .COUNT, .ACE); 
— ¥3 
ACL _READACL (CURRENT_MTLCMTL_ACLFLJ, .ACL_CONTEXT, .COUNT, .ACE) 


CATRSC_ACLLENGTH): 
ACC_ACLLENGTH (CURRENT_MTLCMTL_ACLFLJ, .ACL-CONTEXT, .COUNT, .ACE); 


CINRANGE , OUTRANGE J: SS$_BADATTRIB; 
TES); 
If .FIB NEQ 0 THEN FIBCFIBSL_ACL_STATUS] = .LOCAL_STATUS; 
RETURN 1; 


END; End of routine ACL_DISPATCH 


TITLE STAACLCTL 
-IDENT \v04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
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00000 GLOBAL BASE: 
00000 FREE “ust 

00008 INPUT waits 
00010 REREAD awit 
00018 OUTPUT wait: 


-BLKB 
$8088 ser-beskaane® 


00030 JPI_DATE: 
-BLKB 
00038 JP1_NODE_DESC: 
00040 JFI_CURPRIV: 
-BLKB 
00048 SYI_VERSION: 
-BLKB 


0004C SYI_SID:.BLKB 
00050 RwST_ HOLD LIST: 


00058 RwSv ~encign 
00098 RWSV_AUTODIN: 
00008 RWSV_ “FILESET ID: 
QO0EO RWSV_VOLUME ID: 
O00EC RWSV_VOL_NUNBER: 
QOOEE RWSV_SEG_NUMBER: 
OOOFO RWSV_FILE NUMBER 
000F4 RWSV_SAVE_QUAL: 
OOOF8 RWSV_SAVE_FAB: 
OQOOFC RWSV_CHAN: 
00100 RWSV_XOR‘BCKis 
00104 RVSV_IN, SEQ: 
00108 RWSV_IN_SEQ ): 
0010¢ RUSV_IN_XOR. SEQ: 
00110 RWSV_IN_XOR RFA: 
00116 RWSV_LOOKAHEAD: 
.BLKB 
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00117 
00118 


0011C 
0011E 
00120 
00128 
0012¢ 
00130 
00134 


00138 
0013¢ 
00140 
00144 
00146 
00148 
00149 


0014C 
001BC 


0014 
001C6 
001¢8 
001¢9 
OO1CA 
001CB 
001CC 
00108 
OO1E4 
OO1EC 
0020 


RWSV_XORSIZE: 
RWSV_IN_GROUP_SIZE: 
RWSV_IN_E RORS 
RWSV_IN_XORUSE 
RWSV_IN_ORGERR: 
RWSV_IN_VBN: 
RWSV_IN_VBN 
RWSV_ALLOC: 
RWSV_EOF : 

-BLKB 
RWSV_OUT =SE0: 
RWSV_OUT_VBN: 

BLK 
RWSV_OUT_BLOCK_COUNT: 


- fF fF FF HF Ff On NY FEN 


“BL r 
RWSV_OUT ERRORS: 

“BLKB 2 
RSV_SEQ_ERRORS: | 
RWSV_OUT_GROUP_COUNT 
RWSV_PADDING: 

-BLKB 3 
QUAL: -<BLKB 112 
COM_SSNAME: |g 
COM_VALID, TYPES: 
COM_FLAGS: 

-BLKB 2 
COM_PADDING: 

-BLKB. 1 
COM_BUFF_COUNT: 
COM_1_SETCOUNT: 

-BLKB 1 
COM_O_SETCOUNT: 

-BLKB 1 
COM_1_STRUCNAME : 

-BLKB 12 
COM_O_STRUCNAME : 

*" BLKB 12 
COMO_BSRDATE: 
ALT_SSNAME : 

32 


~BLK 
INPUT_FUNC: 
-BLKB 


Pa 
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00200 INPUT_RTYPE: 
0020€ OUTPUT _FUNC: 
0020F FAST STRUCLEY: 
00210 INPUT_BEG: 
00210 INPUT CHAN: 
00214 INPUT_FLAGS : 
00216 INPUT PADDING: 
00218 INPUT_FAB: 
0021¢ INPUT_NARCS 
00220 INPUT _BCBe 
00224 INPUT QUAL: 
00228 INPUT _BADS 
0022¢ INPUT BLOCK: 
00230 INPUT_MAXBLOCK: 
00234 INPUT “MEDIA ib: 
-BLRB 
00238 INPUT -NAMEDE SC: 
00240 INPUT _STATELK: 
00248 INPUT_HDR BEG: 
00248 INPUT ~CREDATE 
00250 INPUT -REVDAT : 
00258 INPUT -EXPDATE 
00260 INPUT_BAKDATE: 


.BLKB 
00268 INPUT_FILEOWNER: 


-BLK 
0026C INPUT_FILECHAR: 

-BLKB 
00270 INPUT_RECATTR: 

.BLKB 
00290 INPUT_HDR_END: 


-6LKB 
00290 INPUT_END: 


-BLKB 
00290 INPUT PROC LIST: 
00294 INPUT_PLACEMENT: 


- fF @oaowoeowedwWwdvedeocnrewaoarsrl + +} F&F} £-& FF FN NY fF Oo -' - = 
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rivet ACL_DISPATCH = dispatch ACL operation 14- Haat 7 90:81:83 BACKUP. SRCd STAACLE B82: 31 . (3) 
8 


<a | 


0029¢ INPUT VBL 1ST : 
002A4 INPUT PLACE LEN: 
00246 INPUT PADDING. 2: 
002A8 OUTPUT BEG: | 
002A8 OUTPUT CHAN: | 
002aC OUTPUT FLAGS: 
OO2AE OUTPUT_PADDING: 
00280 OUTPUT _FABS 
00284 OUTPUT _NAM: 
00288 output cB 
0028¢ ouTPUT QUAL 
002c0 OUTPUT _BAD: 
002¢4 OUTPUT BLOCK: 
002¢8 OUTPUT -MAXBLOCK 
002cC OUTPUT -DEVGEOM: 
00204 OUTPUT -ATTBUE 
00364 OUTPUT_END: > 
00364 LIST _roteILes: 
00368 LIST ~TOrsitE: 
0036C VERIFY FAB: 
00370 VERIFY_USE “COUNT: 
00374 VERIFY -0UAL 
00378 COMPARE ACB: 
0037C FAST_BUFFER: 
00380 FAST “BUFFER  cIZE, 
00384 FASTLRVN: 
00385 FAST_PADDING: 
00386 DIR_VERLIMIT< 
.BLKB 
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ACL DISPATCH = dispatch ACL operation 1§-$ep-1964 99: $4; §3 BACKUP. SRC STAACL ec 882: 31 ee ay 
00388 FAST_VOL BEG: 
00388 FAST_IMAP eS Tie: 
-BLKB 
0038C FAST_IMAP: 
-BLKB 
00390 FAST_HDR_OFFSET: 
BLKB 
00394 FAST_BOOT LBN: 
00398 FAST_VOL_END: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 
003A0 JOUR_HIBLK: 
003A4 JOUR_EFBLK: 
003A8 JOUR_INBLK: 
OOSAC JOUR_FFBYTE: 
OO3AE JOUR INBYTE: | 
00380 JOUR_STRU T LEV: 
00382 JOUR_ COUNT: | 
00383 JOUR REVERSE: 
00384 JOUR_ EXSZ: 
00386 JOUR PADDING: 
00388 CHKPT_HIGH SP: 
003BC CHKPT_LOW SP: 
003c0 CHKPT_STACK: 
003C4 CHKPT_VARS: 
-BLKB 
003C8 CHKPT_STATUS: 


«BLK 
003CC pte Pee: OAKS 
OOSCC DIR_CHA 


-BLKB 
60300 DIR_NAM: .BLKB 
0304 DIR-DEV_DESC: 


-BLKB 
00308 DIR_SEL_DIR: 
003€0 DIR_SEL_NIV: 
003E8 DIR_STRUCLEV: 


om fF FF OF F FF KF NY HY | KF NNN SF FSF HF SF FF CO Ff KF HF HF OS 
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) 
-BLKB 
OO3SE9 DIR_LEVELS: 
OO3EA DIR_FLAGS: 
«BLK 
OOSEB DIR STATUS: " 
OOSEC DIR_STRING: 
-BLK 
0052C DIR_STACK: 


LK 
0790 DIR_SP: .BLKB 
0794 DIRUSEL_L at es 


Gores bla-eeaa tere. 
-BLKB- 
0078C INPUT_MTL: 
007¢0 OUTPUT_MiL: 
007¢4 CURRENT ATL: 
007C8 CURRENT_VCB: 
007CC CURRENT Pir 
007D0 ACL_FIB “beeeR: 
-BLKB 


00708 ACL_FIB: -BLKB 
00818 ACLILENGTH 


* Lk 
0081¢ ACL_BUFFER: | 
00820 CRYP_IN_CONTEXT: 
00824 CRYP_OU_CONTEXT: 
00828 CRYP_DA_CONTEXT: 

-BLKB 
0082C CRYP_DATA ENCIV: 
00834 CRYP_DATA CODE: 
00838 CRYP_DATA KEY: 
00840 CRYP_DATA Iv: 
00848 CRYP_DATA_CKSM: 

-6LKB 


uwuofr 
oa 


> 


- @woowortowsr £& F& F£& Ff OO fF Ff fF HF S&S 


eEXTRN ACL -ApocnTay. ACL_DELETEACL 
~EXTRN ACL READ ACL acl ACLLENGTH 

eEXTRN GET" ZERO_V REE_VM 

eEXTRN READ TAEABER. Coren VOLUME 


-PSECT CODE .NOWRT,2 


SOE 


STAACLCTL 16-Sep-1 
v04 ACL DISPATCH = dispatch ACL operation 14-Sep-1 


OFFC 00000 
B 00000000° FF 9 
Se 
6 b C 
1¢ AO 9A F 
000000006 0 01 FB 00013 
6E D4 OOOIA 
58 10 AC DO 0001 
D4 000 
8 O00 
6 00 
56 30 A ve 09 8 
03 11 000eC 
08 36 og SF EF Sons 3: 
001 0012 001 001 036 3S: 
iets 005¢ $039 001 003€ 
001 00046 
SA 34 p0 00048 4$: 
0081 31 00048 
50 68 DO O004E 5S: 
31. AO 0 88 00051 
6E OOFFFFFF F 4 00055 
7E 08 AC 7D 0005¢ 
8 AE OF 90060 
10 AO 9F 0006 
000000006 00 4 FB 00066 
D 11 0006D 
50 68 D0 9006 6$: 
51 10 Ag 9 9007¢ 
07 1 ie 
61 1 00 O007A 
14 AO 51 b0 9070 
31 A 92 8 9 1 7$: 
E D4 000 3 
51 DD 000 
000000006 00 92 FB 0089 
A 11 000 
57 pO 92 8$: 
30 10 A f 9 
5 10 A7 OD 99 
A 12 0009D 
6 0 2C 0009F 
oc BC a3 
D 11 OOOA 
7E 08 AC 7D 000A9 98: 
56 0D O00AD 


3c 99:34:83 


-ENTRY ACh DISPATCH. Save R2,R3,R4,R5,R6,R7,RB,RI,= 
R10,R11 


ey Bliss-32 V4.0-74 
BACKUP.SRCJSTAACLCTL.852;1 


MOV CURRENT_MTL, R11 
SUBL2 #4, SP 
MOVL CURRENT ATL RO 
MOVZBL (RO), ~=(SP) 
CALLS #1, SWITCH_VOLUME 
CLRL = DUMMY 
MOVL F1B. RB 
CLRL oR 
TSTL Rg 
BEQL Ss 
INCL R9 
MOVAB 48(R8), ACL_CONTEXT 
BRB 2$ 
MOV DUMMY, ACL_CONTEXT 
CASEL cop #31," #8 
WOR $-3§,- 
4$-3$.- 
4$-3$.- 
4$-3$.- 
4$-3$.- 
$-3$.- 
$-3$'- 
10$-3$, 
4$-33 
MOVL #52, LOCAL_STATUS 
BRW 12$ 
MOVL CURRENT MTL, RO 
BISB2 of 
MOVL § #16777215, DUMMY 
vO COUNT, -(SP) 
PUSHAB DUMMY 
PUSHAB 16(RO) 
CALLS #4 ACL_ADDENTRY 
MOVL URRENT_MTL, RO 
MOVAB 16(RO),~R1 
TSTL (RI) 
BNEG 460s 7$ 
MOVL 1, (R1) 
MOVL 1. 20(RO) 
BISB2 We 49(RO) 
CLRL 0s = ¢ §P) 
PUSHL 1 
CALLS " ACL_DELETEACL 
BRB 11§ 
MOVL CURRENT _MIL, R? 
MOVAB 16(R7),"R 
CMPL 16(R7). 
BNEQ 9 
MOVCS #0, (SP), #0, COUNT, @ACE 
BRB 13$ 
MOV COUNT, -(SP) 
PUSHL ACL_CONTEXT 


Page RY; 
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STAACLCTL 14-32 19 241: AX-11 Bliss-32 V4.0-7 P 13 | 
yoo 000 ACL DISPATCH = dispatch ACL operation 1228687138 99:81:95 {BACKUPS SRCJSTAACLCTL. 8 2;1 = (3) 
10 A? 9F OOODAF PUSHAB 16(R7) : 
000000006 00 4 £8 0008 CALLS #4, ACL_READACL : 
1 } B BRB ing ; 
7E 08 Ac 70 2 108: mova, COUNT. =(SP) ; 1750 
7E 3 C C1 ADDL niet, CURRENT MTL, =(SP) : 
000000006 4 F C5 CALLS #4, ACL_ACLLENGTH ; 
4 9 £9 Ooocr ies: Bree ORS. AL STATUS : 1756 
34 AS A 00 0000 "MOVE = LOCAL STATUS, 52(R8) : | 
5 01 300 13$: MOVL #i, RO 3 1758) 
4 0000 RET : 1760 | 


; Routine Size: 218 bytes, Routine Base: CODE + 0000 


ace Ds SIO, Rd ERE Line Pel aie a PN 


Page 14 


AX-11 Bliss-32 V4. as 
L.8352;1 (4) 


" 
ACL_BUILDACL = build in memory ACL from headers 1b-Se-1964 99:81:83 — YaXceuposneSstaatce 


ZSBTTL ACh BUILDACL = build in memory ACL from headers’ 
GLOBAL ROUTINE ACL_BUILDACL = 


'o¢ 

! 

i FUNCTIONAL DESCRIPTION: 

This routine builds the in core ACL from the file headers. 


! CALLING SEQUENCE: 
none 


: 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
CURRENT_MTL: for ACL queue head & header address 


OUTPUT PARAMETERS: 
none 


DWNAVESWN "OO OONOUSWN oO 


PRIMM 2 2 


COCO O98 C8 INI NN NII NNO OOOO 


ARUN OOF MIO Doo Ue cae 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
LBC otherwise 


SIDE EFFECTS: 
The in core ACL is created from the file headers. 


DURAN UNI—OD 


SSLSESEANSLSSSLVS 


Dl et te 

WMEWNM—O”O 
BF UMGPOPNNINININPIPIMONPOAPINPYIPIPIPONONDIR) 2 9 9 0 0 

- @ 
om 
o ao 
> = 
a 


MoPonononofonofnorny 


CoCo OOOO OOOO NINN NS NSS SSS 


em a ee em em a ee a ed ed ed od od = = 


STATUS, ' General status value 
4 RVN, ' RVN of current header 
48 ACE : REF BBLOCK, ' Address of current ACE 
49 00 ACL_LENGTH ' Size of header segment ACL 
50 01 ACL~POINTER : REF BBLOCK, i Pointer to current segment 
51 o HEADER : REF BBLOC ' Address of current header 
5 0 LOCAL _HEADER : BBLOCK (512), ! Storage for file header 
27 Be EXT_HEADER_FID : BBLOCK (6); ' Extension header file-ID 
55 4] HEADER = .CURRENT_MTLCMTL pe eeness 
2 ri RVN = .CURRENT_MTCCMTL_FIB_RVNJ; 
4 39? ! Build an in core ACL from the file headers 
60 11 WHILE 1 
61 \¢ 00 
6 1 BEGIN 
6 14 IF .HEADERCFH2$B_ACOFFSETJ*2 LSS SBYTEOFFSET (FH2$W_CHECKSUM) 
64 15 THEN 
65 1g BEGIN 
66 1 ACE = .HEADER + .HEADERCFH2$B_ACOFFSETIJ*2; 


Kk 11 
STAACLCTL 16-Sep-19 241: AX-11 Bliss-32 v4.0-7 1 
yoo 000 ACL_BUILDACL = build in memory ACL from headers 1278081 $8 90:81:03 BACKUP.SRCJSTAACLCTL. 3 2;1 “het (3 
: 267 1818 4 ACL LENGTH = 0; 
3 68 1819 4 DO 
3 $ 1820 BEGIN 
3; 270 1801 ACL_LENGTH = .ACL_LENGTH + .ACECACESB_SIZE); 
; 4 ¢ Ace = .ACE + .ACECACESB_SIZEJ; 
; ig 1824 4 UNTIL -ACECACESB. SIZE) Edt 0 
: 27% 1825 4 wACE GEQA READERCFHOSW_CHECKSUM); 
: 275 1 6 4 AC POINTER = GET ZERO_VM M CACLSC_ LENGTH + .ACL_LENG 
i 906 1 4 CHSMOVE (.ACL_LENGTH, HEADER + “HEAD REF FHeS NOP SETae2, 
: 27 1828 4 ACL -POINTERLACL T 
: i: 1829 4 ACL POINTERCA ACL$W_SIZE] = CALENG TH 3 “Aci ienctH: 
3 te 18 4 INSQUE (.ACL_POINTER, a CURAEAT CATLCMTL_ACLBLIJY; 
3 281 183¢ HSMOVE (6 EADEREEH2SW_ EXT_FID], EXT_HEADER_FID); 
: Be 183 IF .EXT_HEADER FIDCFEIDSW-NUMT EQL 0 
: Sse -EXT_HEADER_F JDCF IDSB_NMX) EOL 0 
; 1835 THEN EXITLOO 
: 5 1836 IF EXT ER_FIDCFIDSB RYN] EQL 0 
; 86 183 EN EXT_HEA ER FIDEF DSB VN) = RV 
; 28 1838 LSE RVN= .EXT HEADER FIBEEID VNJ; 
; 288 1839 STATUS = READ HEADER (EXT AEADER” FID. LOCAL_HEADER); 
: 289 1840 IF NOT .STATUS THEN RETURN .STATOS; 
: 290 1841 HEADER = sTOCAL _HEADER; 
: 291 184¢ END; 
: % 184 
; 29 1844 RETURN 1; 
; 295 1846 1 END; ! End of routine ACL_BUILDACL 
OFFC 00000 ENTRY ACL _BUILDACL. Save R2,R3,R4,R5,R6,R7,RB,R9,-: 1762. 
5E FDF8 CE 9E 0000 MOVAB RO btsP), SP ; 
50 00000000" EF DO 0000 MOVL RRENT _ATL RO > 1806. 
56 0c A0 po 00005 VL 12(R0), "HEADER ; | 
oA 1¢ AO 9A 0001 MOVZBL : (RO). RVN : 1807 
32 02 Ab 9A 90016 1$: MOVZBL (HEADER), R2 > 1814. 
é 92 C4 OOO1A MULL2 #2, Re : | 
QOO001FE BF D1 0001D CMPL R2. #510 F 
46 (18 0 4 BGEG § 6 4$ ; 
59 56 52 C1 6 ADDL3 R2, HEADER, ACE + 1817 
5 pA O2A CLRL.  ACL_LENGT : 1818 
50 9 9A 99 C 28: MOVZBL CACED RO + 1821 
58 0 co F ADDL2 RO, ACL LENGTH : 
50 9 9A 99 MOVZBL (ACE), R : 1822 
59 0 § 9 ADDL2 ACE F 
69 6 TSTB. = (ACE) 3 1824 
OA 13 O003A BEQL $ : 
50 O1FE ¢ 9 99 d MOVAB 510(R6), RO > 1825 
0 D1 00041 CMPL sé ge. RO- ; 
E6 1F 00044 BLSSU ; 
OC AB 9F 00046 38: PUSHAB FBeact LENGTH) > 1826 
000000006 00 01 FB 00049 CALLS GET_ZERO_VM : 


1 
STAACLCTL 15 Se AX-11 Bliss-32 V4.0-7 Page 16 
$00 000 ACL_BUILDACL = build in memory ACL from headers 1 =300n 138% 9: $h: 83 BACKUP. SRCIJSTAACLCTL. 8 2:1 fw) 
57 MOVL RO, ACL_POINT : 
OC aA? 624 AE: MOVC3 ACL_LENGTH (Ro) CHEADER], 12(ACL_POINTER) 1828 
5 oc A 9 MOVAB 12(ACL_LENGTH), R + 1829 
08 A D vw cnet POIN NFER) : 
50 00000000" €éF 61 VL. nO, Bun + 1830. 
14 60 7 0068 INSGUE (ACL POINTER) 20(RO) : | 
6E OE Ab 4 0 6¢ 4$ MOVC3 #6 ot DERS, at _HEADER_F ID : 1832 
6 : 99 TSTW xf _HEADER FID + 183 
07 BNEQ : 
05 AE 95 0007 TSTB EXT _WEADER_F1D+5 + 1834 
20 13 0007 BEQL $ ; 
04 AE 95 OO07A 5$ TST T_HEADER_F 1D+4 : 1836) 
6 12 0007D BNEQ : : | 
04 AE A 90 0007F MOVB RVN, EXT_HEADER_F1D+4 + 1837) 
04 11 0083 BRB : | 
SA 06 AE OA 9008 $$ MOVZBL EXT_HEADER_FID+4, RVN : 1838) 
08 AE 9F 00089 7$ PUSHAB LOCAL_HEADER + 1839. 
04 AE OF OBC PUSHAB EXT_HEADER_FID : 
000000006 00 02 FB 0008F CALLS 2, “READ HEADER : 
58 50 DO 000% MOVL RO. ST TATOS : | 
4 58 £8 00099 BLBS STATUS, 8 + 1840 
0 5B 00 909¢ MOVL STATUS. Hy 3 
04 0009F RET : 
56 08 AE 9E OOOA0 8$ MOVAB LOCAL HEADER, HEADER + 184 
FF6F 31 OOOA4 BRW 1 + 181 
50 01 DO O00A7 9S: MOVL #1, RO + 184 
04 OOOAA RET + 184 


; Routine Size: 171 bytes, Routine Base: CODE + OODA 


11 


A 
STAACLCTL 16-Sep-1984 00:41: AX-11 Bliss-32 V4.0-74 Pa 7 
Joe 006 ALLOC_PAGED = memory allocator for ACLSUBR 12-808713 4 90:31:93 EBACKUPSRe STAALLE SL 68231 - (35 
3 7 1847 1 ZSBTTL ‘ALLOC_PAGED - ponery allocator for ACLSUBR' 
3 4 : rk } GLOBAL ROUTINE ALLOC_PAGED (SIZE, DUMMY) = 
; 300 1 50 1 t+ 
; 301 1 1! 
: 4 1 26 1 ! FUNCTIONAL DESCRIPTION: 
; 30 1855 1! This routine is a simple jacket routine for GET ZERO_VM. It is 
$ Be 1328 : needed by the ACL management routines in ACLSUBR (from the XQP). 
; 306 1328 1 ! INPUT PARAMETERS: 
3; 3507 1857 1! SIZE - Size of the block to allocate 
; 308 tt 1} UMMY = Unused by BACKUP. 
; 309 1859 1! 
; 10 1860 1 ! OUTPUT PARAMETERS: 
>; «511 1861 1! NONE 
3 \¢ 1868 1! 
3 1 1863 1 ! ROUINE VALUE: 
3 14 1864 1! Address of allocated area. 
s 315 1865 1! 
: 18 1866 1 ! SIDE EFFECTS: , 
ee 1867 1! If allocation fails, a fatal error is signalled. 
; 318 1868 1! 
; #319 1869 1 !-- 
3 320 1870 1 
: $! 137) BEGIN 
s ¢ 1 u 
3 2 187 RETURN GET_ZERO_VM (.SIZE); 
3: 324 1874 
3 Ses 1875 1 END; ! End of routine ALLOC_PAGED 


0000 00000 ENTRY ALLOC_PAGED, Save nothing 3 184 
04 AC DD 0000 PUSHL g 1 
000000006 00 01 FB 0000 CALLS #1, GET_ZERO_VM 3 
04 0000C RET ; 187 


; Routine Size: 13 bytes, Routine Base: CODE + 0185 


seis" 


7 
8 
9 
0 
1 
g 
5 


Ft oe 


OWONAULSWN OO OVNOUSWN oO 


PPADS 


WANN 


3; Routine Size: 


N 
16= 
DALLOC_PAGED = memory deallocator for ACLSUBR 12-328713 


11 
SEIS MASSES WBS PLAsHRAt Aon 


1876 1 ZSBTTL "DALLOC_PAGED - Renery deallocator for ACLSUBR’ 
: f : GLOBAL ROUTINE DALLOC_PAGED (AREA, DUMMY) = 
1879 1 !44 
1880 1! 
1881 1 ! FUNCTIONAL DESCRIPTION: 
1 ¢ 1! This routine is a simple jacket routine for FREE_VM. It is 
: 7 : } needed by the ACL management routines in ACLSUBR (from the XQP). 
is 5 1 ! INPUT PARAMETERS: 
1886 1! AREA - Address of the block to deallocate 
bt : : DUMMY = Unused by BACKUP. 
1889 1 ! OUTPUT PARAMETERS: 
1890 1! NONE 
1891 1! 
1838 1 ! ROUTINE VALUE: 
1895 1! NONE 
1894 1! 
1895 1 ! SIDE EFFECTS: 
138 ; : If deallocation fails, a fatal error is signalled. 
1898 1 !<- 
1899 1 
1900 BEGIN 
1901 
1308 MAP 
17 AREA : REF SBBLOCK; ! Address of block to free up 
1905 FREE_VM (.AREACACLS$W_SIZE], .AREA); 
iene § RETURN 1; 
1908 1 END; ! End of routine DALLOC_PAGED 
0000 00000 ENTRY DALLOC_PAGED, Save nothing 
50 04 AC 00 00002 MOVL AREA, RO 
50 po 4 PUSHL 
7E 08 A C 0000 MOVZWL 8 (RO), -(SP) 
000000006 00 02 FB 468 CALLS #2, FREE_VM 
50 01 00 BROT MOVL #1, RO 
04 00016 RET 
23 bytes, Routine Base: CODE + 0192 


1909 1 
1910 1 
1911 


END 
0 ELUDOM 


‘viene 


STAACLCTL 18-56 AX-11 Bliss- -32 v4. Pa 19 \S 
v04 DALLOC_PAGED = memory deallocator for ACLSUBR 1 ~3007 138% 99: 4) 83 BACKUP. SRC} STAACLE L. 5 2;1 af (6) ‘a 
3 PSECT SUMMARY 

: Name Bytes Attributes 

> COMMON 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR.NOPIC AL IGN(2) 

; CODE 425 NOVEC. *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

; Ssensase FyGROLE Sececese Pages Processing 

: File Total ioaded Percent Mapped Time 

: -8255$DUA28: CSYSLIBILIB.L32;1 18619 21 0 1000 00:02.3 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, ,OPTIMIZE)/LIS=LIS$:STAACLCTL/OBJ=OBJ$:STAACLCTL MSRC$:STAACLCTL/UPDATE=(ENH$:STAACLCTL) 

; Size: 425 soge + 2124 data bytes 


: Run Time : 
; Elapsed. Time: 01:1 

: Lines/CPU Min: 51 y2-? 
3; Lexemes/CPU-Min: 42298 
: ca Used: 284 pages 
r ation Complete 
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